How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/VINDEX.DIR/00035_Script_startmovie

Text File | 1995-09-06 | 2KB | 87 lines

--òò StartMovie Handlers
--** July 15 95 2 P.M.
--** Needs to have functions added to reference link cast members
Global gBtn17, gBtn16, gWhatMovie,gNewMarker, gTheHelpIsOn , gIndexManager,gReInitGlobals

on StartMovie
  set gBtn16 = birth(script "a3StateButton", 46, 1931, "SV141819.AIF", "CrossEIndex", "HandCursor")
  set gBtn17 = birth(script "a3StateButton", 47, 1925, "SV141819.AIF", "CrossAIndex", "HandCursor")
  put "VikingW.dir" into gWhatMovie
  if gReInitGlobals = 1 then
    GlobalSetUpFromTheatre
    set gReInitGlobals = 0
  end if
  VGlobalsSetUpIndex
  set gTheHelpIsOn = 0
  initializeIndex
  set the cursor of sprite 3 = [1904 , 1905]
  set spriteCount = 3
  repeat while (spriteCount < 29)
    set the cursor of sprite spriteCount = [1904 , 1905]
    set spriteCount = spriteCount + 1
  end repeat
  set the cursor of sprite 40 = [1904 , 1905]

end

on StopMovie
  hidecontrol (gBtn16)
  hidecontrol (gBtn17)
  set gBtn16 = 0
  set gBtn17 = 0
  unload 1, 3
  disposeIndexSystem
end

--òòInitialize Index System Code
on initializeIndex
  --òò use sprite 2 to hold sub menu
  puppetSprite 2,TRUE
  --òò use sprite 40 to hold sub memu icon art
  puppetSprite 40,TRUE
  set gIndexManager = birth ( script "aIndexManager")
  initIndex(gIndexManager)
end

--òòDispose of objects
on disposeIndexSystem
  puppetSprite 2, FALSE
  puppetSprite 40,FALSE
  set gIndexManager = 0
end

--òòUser input interface handlers : Track mouse movement and clicks
on rolloverIndex
  testIndexRollover(gIndexManager)
end

on clickAlpha
  clickAlpha(gIndexManager)
end

on clickTopic
  clickTopic(gIndexManager)
end

on clickRefLink
  set horzPos = the mouseH
  set vertPos = the mouseV
  clickRefLink(gIndexManager ,horzPos,vertPos)
end

on resetIndex
  resetIndex (gIndexManager)
end

on doBeep
  --beep 3
  --put "gotFunctionString"
end

on setTEXT startC,stopC
  repeat while (startC <= stopC)
    set the scriptText of cast startC = "--0,0,0,0,doBeep;"
    set startC = startC + 1
  end repeat
end